# NOT RUN {
# Load the example time series of vertical profiles
vpts <- example_vpts
# This vpts contains 1934 profiles (i.e. datetimes)
dim(vpts)
# Subset vpts to extract 10th profile
vpts[10] # A vp object
# Subset vpts to extract the 20th to 100th profile
vpts[20:100] # A vpts object with 81 profiles
# Subset vpts to remove the first 10 profiles
vpts[-1:-10] # A vpts object with 10 less profiles
# }
Run the code above in your browser using DataLab